/*
Redefine the timeline for IE starters
- use Yrtti after 2006 too
*/

use "D:\d37\custom-made\shareholder_panel_1997_2016_muok.dta" , clear
ren verovuosi vuosi
bysort shnro vuosi: gen nr_of_firms = _N
egen NR_of_firms=max(nr_of_firms), by(shnro vuosi)
ren syrtun_maktun syrtun
keep syrtun shnro vuosi NR_of_firms
tab NR_of_firms
gen ie=1
gen ie_mltpl=0
replace ie_mltpl=1 if NR_of_firms>1
ren NR_of_firms nr_of_firms
keep shnro syrtun vuosi nr_of_firms ie ie_mltpl
label var nr_of_firms "Number of firms a person owns in a given year"
label var ie "Incorporated entrepreneur"
label var ie_mltpl "Incorporated entrepreneur who owns more than one firm"
keep shnro syrtun vuosi nr_of_firms ie ie_mltpl
drop if shnro==""

sort syrtun shnro vuosi
order syrtun shnro vuosi
egen firm_ind=group(syrtun shnro)
tsset firm_ind vuosi
tsfill

foreach var of varlist syrtun shnro nr_of_firms ie ie_mltpl {
bys firm_ind: carryforward `var', gen(`var'n) 
drop `var'
ren `var'n `var'
}
* keep the first firm that the owner has
sort shnro vuosi
bys shnro: gen eka=_n
keep if eka==1
drop firm_ind eka 
rename syrtun syrtun_ownrshp
save "$data\99_temp\temp_newie_mustgetdiv.dta", replace

use "$data\01_main\folk_flown_merge.dta", clear
keep shnro id vuosi ika
merge 1:1 shnro vuosi using "$data\99_temp\temp_newie_mustgetdiv.dta"
drop if _merge==2
erase "$data\99_temp\temp_newie_mustgetdiv.dta"
drop _merge
order shnro-ie_mltpl

foreach var of varlist nr_of_firms ie ie_mltpl {
	replace `var'=0 if `var'==.
}
order shnro vuosi nr_of_firms ie ie_mltpl

* Identify change from wage earner or UIE to IE
xtset id vuosi, yearly // defining as a panel
gen d_ie = D.ie
*drop mainowner
gen new_ie=.
replace new_ie=1 if d_ie==1
drop d_ie
order shnro-ie new_ie
replace new_ie=0 if new_ie==.

save "$data\01_main\folk_flown_merge_taxadmin0614.dta", replace

* Get detailed firm-level info
use "D:\ready-made\FIRM_ENTER\til88yr.dta", clear
forval i=89(1)99{
append using "D:\ready-made\FIRM_ENTER\til`i'yr.dta"
}
gen Vuosi=vuosi
tostring Vuosi, replace
gen alk="19"
replace Vuosi=alk+Vuosi
drop vuosi
ren Vuosi vuosi
forval i=0(1)9{
append using "D:\ready-made\FIRM_ENTER\til0`i'yr.dta"
}
forval i=10(1)12{
append using "D:\ready-made\FIRM_ENTER\til`i'yr.dta"
}
destring vuosi tplkm ika, replace force
forval i=13(1)18{
append using "D:\ready-made\FIRM_ENTER\til`i'yr_yty.dta", force
}
duplicates drop syrtun vuosi, force
drop if syrtun==""
keep syrtun vuosi alo* AlPvm ToimAlPvm lv Liike* oik* OikMuotoVuosi verohOikMuoto
destring oik OikMuotoVuosi verohOikMuoto, replace force
order syrtun vuosi
sort syrtun vuosi
* we want only incorporated firms so use the organizational form to define that
gen oy=1 if oik==31 | verohOikMuoto==12
gen pois=1 if OikMuotoVuosi==31 & verohOikMuoto!=12
bys syrtun: egen drop=min(pois)
replace oy=. if drop==1 & oy==1
drop alomuoto
destring lv, replace force
order syrtun vuosi
gen year=substr(aloaika,-2,2) if length(aloaika)==4
replace year="19"+year if length(aloaika)==4
replace year=substr(aloaika,1,4) if length(aloaika)==6
replace year=substr(aloaika,1,4) if length(aloaika)==8
replace year=substr(AlPvm,1,4) if length(AlPvm)==8

preserve
egen id=group(syrtun)
duplicates drop id year, force
tab year
restore 

destring year, replace
replace year=year+1
replace Liikevaihto=lv if vuosi<2013
duplicates drop syrtun vuosi, force
replace Liikevaihto=0 if Liikevaihto==.
keep if Liikevaihto>0
sort syrtun vuosi
* oy==1 here, so that only incorporated are defined with new firm status
bysort syrtun: gen nr = _n if oy==1
gen new_firm=0
replace new_firm=1 if nr==1
keep if new_firm==1
keep if year>1994
keep syrtun year new_firm
ren year vuosi
ren syrtun syrtun_ownrshp
save "$data\99_temp\ie_syrtun_temp_mustgetdiv.dta", replace

use "$data\01_main\folk_flown_merge_taxadmin0614.dta", clear
merge m:1 syrtun_ownrshp vuosi using "$data\99_temp\ie_syrtun_temp_mustgetdiv.dta"
drop if _merge==2
drop _merge
replace new_firm=0 if new_firm==.
tab vuosi new_firm
erase "$data\99_temp\ie_syrtun_temp_mustgetdiv.dta"
save "$data\01_main\folk_flown_merge_taxadmin0614.dta", replace

/* ***** Define the event variables ***** */

gen event_ie=. // event for incorporated entrepreneurs
replace new_firm=0 if vuosi>=2015
replace new_firm=0 if ika<25 | ika>65
bysort shnro: egen max_new_firm = max(new_firm)
replace max_new_firm=0 if max_new_firm==.
drop if max_new_firm==0
xtset id vuosi, yearly
replace event_ie=-5 if F5.new_firm==1
replace event_ie=-4 if F4.new_firm==1
replace event_ie=-3 if F3.new_firm==1
replace event_ie=-2 if F2.new_firm==1
replace event_ie=-1 if F.new_firm==1
replace event_ie=0 if new_firm==1
replace event_ie=1 if L.new_firm==1
replace event_ie=2 if L2.new_firm==1
replace event_ie=3 if L3.new_firm==1
replace event_ie=4 if L4.new_firm==1
replace event_ie=5 if L5.new_firm==1
replace event_ie=6 if L6.new_firm==1
replace event_ie=7 if L7.new_firm==1
replace event_ie=8 if L8.new_firm==1
replace event_ie=9 if L9.new_firm==1
replace event_ie=10 if L10.new_firm==1

drop if event_ie==.
keep shnro vuosi event_ie
save "$data\01_main\folk_flown_merge_taxadmin0614.dta", replace
